home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / clean disk (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  556b  |  24 lines
  1. 1 GOSUB1000:PRINT"[147]VALIDATING DISK..."
  2. 10 OPEN1,8,15,"V"
  3. 20 OPEN2,8,2,"#":PRINT"[147]"
  4. 30 PRINT#1,"U1 2 0 18 0"
  5. 40 SYS49152:SYS49155
  6. 50 A=52996
  7. 60 FORT=1TO35:Z=1:X=0
  8. 65 M=20:IFT>17THENM=18:IFT>24THENM=17:IFT>30THENM=16
  9. 70 FORS=0TOM
  10. 80 W=43:IF(PEEK(A+Z)AND2^X)<>0THENW=45
  11. 81 IFW=45THENPRINT#1,"U2 2 0";T;S
  12. 90 POKE1023+40*S+T,W
  13. 100 X=X+1:IFX<8THEN110
  14. 101 X=0:Z=Z+1
  15. 110 NEXTS
  16. 115 A=A+4
  17. 120 NEXTT
  18. 130 CLOSE2:CLOSE1
  19. 140 END
  20. 1000 DATA76,6,192,76,28,192,162,2,32,198,255,162,0,32,207,255,157,0,207,232,224
  21. 1010 DATA144,208,245,32,204,255,96,162,2,32,201,255,162,0,138,32,210,255,232
  22. 1020 DATA208,250,32,204,255,96
  23. 1030 FORI=49152TO49152+45:READA:POKEI,A:NEXT:RETURN
  24.